;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;     http://paracadd.com
;;;	All rights reserved.
;;;
;;;If tilemode must be 0 then why don't we just set it?
;;;(DEFUN c:pspace (/ prev_ss)
;;;  (vl-load-com)
;;;  (SETQ prev_ss (SSGET "p"))
;;;  (IF (SSGET "x" '((0 . "VIEWPORT")))
;;;    (PROGN
;;;      (SETVAR "tilemode" 0)
;;;      (vla-put-MSpace (vla-get-Activedocument (vlax-get-Acad-Object)) :vlax-false)
;;; ;;;      (COMMAND ".pspace")
;;;      (COMMAND ".select" prev_ss "")
;;;      (COMMAND)
;;;    ) ;_ end of progn
;;;    (PRINC
;;;      "\n** Command not allowed unless TILEMODE is set to 0. **"
;;;    ) ;_ end of princ
;;;  ) ;_ end of if
;;;  (PRINC)
;;;) ;_ end of defun
;;;(DEFUN pspace ()
;;;  (vl-load-com)
;;;  (PROGN
;;;    (SETVAR "tilemode" 0)
;;;    (vla-put-MSpace (vla-get-Activedocument (vlax-get-Acad-Object)) :vlax-false)
;;;  )
;;;)
(PRINC)